From cb4f758c9cd653c244eb2cf0d5d282a2cc7bf485 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Fri, 6 Jul 2007 03:56:12 +0000 Subject: [PATCH] (math-add-bignum): Replace number by constant. --- lisp/calc/calc.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el index 78d6231cb15..d81c1070b9f 100644 --- a/lisp/calc/calc.el +++ b/lisp/calc/calc.el @@ -2780,7 +2780,7 @@ largest Emacs integer.") (progn (setcar aa (1+ sum)) (setq carry nil)) - (setcar aa (+ sum -999))) + (setcar aa (- sum (1- math-bignum-digit-size)))) (if (< (setq sum (+ (car aa) (car b))) math-bignum-digit-size) (setcar aa sum) (setcar aa (- sum math-bignum-digit-size)) @@ -2790,7 +2790,7 @@ largest Emacs integer.") (if carry (if b (nconc a (math-add-bignum b '(1))) - (while (eq (car aa) 999) + (while (eq (car aa) (1- math-bignum-digit-size)) (setcar aa 0) (setq aa (cdr aa))) (if aa -- 2.30.2